home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / HyperCard / CambridgeMedlineTutor / ccMedTut2 / card_16920.txt < prev    next >
Encoding:
Text File  |  1992-02-24  |  2.4 KB  |  105 lines
  1. -- card: 16920 from stack: in
  2. -- bmap block id: 17332
  3. -- flags: 0000
  4. -- background id: 11419
  5. -- name: 
  6. ----- HyperTalk script -----
  7. On Opencard
  8.   put empty into card field "blue"
  9. End Opencard
  10.  
  11. On ReturnKey
  12.  
  13.   global TVar
  14.   put quote & "smoking:pc" & quote & " or " & quote & "smoking:th" & quote into TVar
  15.   TypeChar
  16.  
  17.   click at 400,400
  18.  
  19.   repeat 4 times
  20.     --lock screen
  21.     go next
  22.     --unlock screen with dissolve
  23.     wait 20
  24.   end repeat
  25.  
  26.   go next
  27.  
  28.   --for card with 3 dots, 2 flashing -SEARCHING . . .
  29.   Repeat 5 times
  30.     hide card field id 19
  31.     wait 10
  32.     show card field id 19
  33.     wait 50
  34.   end repeat
  35.  
  36.   Repeat 3
  37.     go next
  38.     wait 20
  39.   End repeat
  40.  
  41.   UnDissolve
  42.  
  43. End ReturnKey
  44.  
  45.  
  46.  
  47.  
  48. -- part 1 (field)
  49. -- low flags: 00
  50. -- high flags: 0000
  51. -- rect: left=17 top=92 right=110 bottom=486
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 0
  55. -- font id: 3
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: blue
  60.  
  61.  
  62. -- part 7 (field)
  63. -- low flags: 00
  64. -- high flags: 0000
  65. -- rect: left=146 top=270 right=288 bottom=209
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 0
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 2048
  72. -- line height: 16
  73. -- part name: 
  74.  
  75.  
  76. -- part contents for card part 5
  77. ----- text -----
  78.    Now, to broaden our search on the subject of SMOKING CESSATION, let's search for articles on either "Smoking:TH" or "Smoking:PC," as MeSH terms. Hit RETURN & the search will be run automatically.   
  79.  
  80. -- part contents for card part 7
  81. ----- text -----
  82. Search
  83.  
  84. -- part contents for background part 3
  85. ----- text -----
  86. Search Menu
  87.  
  88. -- part contents for background part 5
  89. ----- text -----
  90. card id 33182
  91.  
  92. -- part contents for background part 7
  93. ----- text -----
  94.  
  95.  
  96. xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  97.  
  98. -- part contents for background part 8
  99. ----- text -----
  100. 33182
  101.  
  102. -- part contents for background part 13
  103. ----- text -----
  104.  
  105.